#This is a comment

#set vector
> rawdata <- c(55,56,98,100,15,12,33,45,32,67,82,19,25)

#compute max
> max(rawdata)

#compute min
> mix(rawdata)

#summary data
summary(rawdata)

#plot the data
> plot(rawdata)

#plot min.max.mean
> plot(rawdata, type="b" , xlab="Time in Seconds")
> plot(rawdata, type="b" , xlab="Time in Seconds" ,ylab="CPU Data")
> abline(h=max(rawdata), v=0)
> abline(h=min(rawdata), v=0)
> abline(h=mean(rawdata), v=0)
